home *** CD-ROM | disk | FTP | other *** search
- property Index_x, Old_x, Posun
- global LVyber, SVyber, Posledni_menu
-
- on getPropertyDescriptionList
- set description to [:]
- addProp(description, #Posun, [#comment: "Posun:", #format: #integer, #default: 1])
- return description
- end
-
- on getBehaviorDescription
- return "Nájezd a klik"
- end
-
- on beginSprite me
- set the visible of sprite the spriteNum of me to 1
- set Posledni_menu to the frameLabel
- set the locV of sprite (the spriteNum of me + 1) to (LVyber * 16) + 79
- if SVyber = Posledni_menu then
- set the visible of sprite (the spriteNum of me + 1) to 1
- else
- set the visible of sprite (the spriteNum of me + 1) to 0
- end if
- end
-
- on mouseWithin me
- set Index_x to integer((the mouseV - 66) / 16)
- if (Index_x > 0) and (Index_x < 29) then
- set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
- set the locV of sprite (the spriteNum of me + 1) to (Index_x * 16) + 79
- set the visible of sprite (the spriteNum of me + 1) to 1
- set Old_x to Index_x
- else
- set the cursor of sprite the spriteNum of me to -1
- end if
- end
-
- on mouseLeave me
- set the locV of sprite (the spriteNum of me + 1) to (LVyber * 16) + 79
- if SVyber = Posledni_menu then
- set the visible of sprite (the spriteNum of me + 1) to 1
- else
- set the visible of sprite (the spriteNum of me + 1) to 0
- end if
- end
-
- on mouseDown me
- puppetSound(1, "Klik")
- end
-
- on mouseUp me
- set LVyber to Old_x
- set SVyber to Posledni_menu
- go(string(Index_x + Posun - 1))
- end
-